home *** CD-ROM | disk | FTP | other *** search
/ The Very Best of Atari Inside / The Very Best of Atari Inside 1.iso / sharew / spiele / jum_run / pacballs / dat8.dat (.txt) < prev    next >
Encoding:
GFA-BASIC Atari  |  1995-08-15  |  25.3 KB  |  1,351 lines
  1. ON ERROR GOSUB vB_19
  2. ON BREAK GOSUB vB_1B
  3. DIM v6_5%(22118/4)
  4. DIM v6_4%(7862/4)
  5. DIM v6_3%(22118/4)
  6. DIM v6_2%(2292/4)
  7. DIM v4_B#(8)
  8. DIM v4_C#(8)
  9. DIM v5_A$(86),v4_9#(6),v4_A#(6)
  10. DIM v4_7#(15),v5_7$(15),v4_8#(15),v5_8$(15)
  11. DIM v5_5$(4),v5_6$(10)
  12. ' Sprite-Daten in einen String umwandeln
  13. LET v5_5$(1)=MKI$(0)+MKI$(0)+MKI$(0)
  14. LET v5_5$(1)=v5_5$(1)+MKI$(0)+MKI$(1)
  15. FOR v2_2%=1 TO 16
  16.   READ v0_11#,v0_12#
  17.   LET v5_5$(1)=v5_5$(1)+MKI$(v0_12#)+MKI$(v0_11#)
  18. NEXT v2_2%
  19. DATA 4,0,12,0,276,0,900,0,1732,0,1092,0,3168,0,2080,0
  20. DATA 6192,0,4112,0,12312,0,8200,0,24588,0,16388,0,32764,0,0,0
  21. ' Sprite-Daten in einen String umwandeln
  22. LET v1_E$=MKI$(0)+MKI$(0)+MKI$(0)
  23. LET v1_E$=v1_E$+MKI$(0)+MKI$(1)
  24. FOR v2_2%=1 TO 16
  25.   READ v0_11#,v0_12#
  26.   LET v1_E$=v1_E$+MKI$(v0_12#)+MKI$(v0_11#)
  27. NEXT v2_2%
  28. DATA 0,0,0,0,0,0,8184,0,5160,0,6168,0,4104,0,4104,0
  29. DATA 4104,0,4104,0,6168,0,5160,0,8184,0,0,0,0,0,0,0
  30. PRINT "Loading Datas"
  31. DIM v5_2$(8),v5_3$(4),v5_4$(4)
  32. v5_2$(1)=SPACE$(192)
  33. v5_2$(2)=SPACE$(334)
  34. v5_2$(3)=SPACE$(130)
  35. v5_2$(4)=SPACE$(574)
  36. v5_2$(5)=SPACE$(192)
  37. v5_2$(6)=SPACE$(312)
  38. v5_2$(7)=SPACE$(210)
  39. v5_2$(8)=SPACE$(210)
  40. OPEN "I",#1,"DATA2.dat"
  41. FOR v2_0%=1 TO 8
  42.   BGET #1,VARPTR(v5_2$(v2_0%)),LEN(v5_2$(v2_0%))
  43. NEXT v2_0%
  44. v1_C$=SPACE$(31926)
  45. BGET #1,VARPTR(v1_C$),31926
  46. CLOSE #1
  47. DIM v5_0$(20),v4_2#(8),v4_1#(5),v4_0#(6),v5_1$(7,8),v4_3#(15,13),v4_4#(32)
  48. v0_3#=0
  49. v0_4#=2
  50. FOR v0_5#=1 TO 4
  51.   v4_0#(v0_5#+1)=45
  52.   v4_1#(v0_5#)=1
  53. NEXT v0_5#
  54. v4_1#(5)=1
  55. v1_1$="BZF1234"
  56. GOSUB vB_2
  57. GOSUB vB_3
  58. v4_3#(1,1)=4+v0_3#
  59. v4_3#(1,2)=3+v0_3#
  60. v4_3#(1,3)=1+v0_3#
  61. FOR v0_5#=1 TO v0_3#
  62.   v4_3#(v0_5#+1,1)=11+v0_3#+(v0_3#=2)
  63.   v4_3#(v0_5#+1,2)=7+v0_3#+(v0_3#=2)
  64.   v4_3#(v0_5#+1,3)=4+v0_3#-1+(v0_3#=2)
  65. NEXT v0_5#
  66. PRINT AT(3,4);"Zug: "
  67. FOR v0_5#=1 TO 8 STEP 2
  68.   PRINT AT(21,10+v0_5#);v5_1$(4+INT(v0_5#/2),4+INT(v0_5#/2));
  69. NEXT v0_5#
  70. FOR v0_5#=1 TO 3
  71.   PRINT AT(17+v0_5#*5,8);v5_1$(v0_5#,v0_5#)
  72.   PRINT AT(-3+v0_5#*5,8);v5_1$(v0_5#,v0_5#)
  73. NEXT v0_5#
  74. GOSUB vB_3
  75. PUT 1,1,v1_C$
  76. '  ***************************** HAUPTPROGRAMM ******************************
  77. vA_3:
  78. v0_6#=1
  79. vA_6:
  80. FOR v0_5#=2 TO v0_3#+1
  81.   IF v4_0#(v0_5#)=v4_0#(1)
  82.     GOSUB vB_4
  83.     GOSUB vB_10
  84.   ENDIF
  85. NEXT v0_5#
  86. PRINT AT(5,5);v5_3$(v0_6#);SPACE$(21-LEN(v5_3$(v0_6#)))
  87. DEFTEXT 1,0,7,8
  88. TEXT 550,30,"ZUG: "+STR$(v4_1#(1))
  89. IF v4_1#(1)=30
  90.   ALERT 1,"Das Spiel ist |verloren.Die Person |konnte in den 30 Runden |nicht gefaßt werden ",0,"GAME|OVER",v0_E#
  91.   RUN
  92. ENDIF
  93. DEFTEXT 1,1,6,6
  94. v0_C#=v4_0#(v0_6#+1)
  95. IF v0_C#=1
  96.   RESTORE vA_B
  97. ENDIF
  98. IF v0_C#=2
  99.   RESTORE vA_C
  100. ENDIF
  101. IF v0_C#=3
  102.   RESTORE vA_D
  103. ENDIF
  104. IF v0_C#=4
  105.   RESTORE vA_E
  106. ENDIF
  107. IF v0_C#=5
  108.   RESTORE vA_F
  109. ENDIF
  110. IF v0_C#=6
  111.   RESTORE vA_10
  112. ENDIF
  113. IF v0_C#=7
  114.   RESTORE vA_11
  115. ENDIF
  116. IF v0_C#=8
  117.   RESTORE vA_12
  118. ENDIF
  119. IF v0_C#=9
  120.   RESTORE vA_13
  121. ENDIF
  122. IF v0_C#=10
  123.   RESTORE vA_14
  124. ENDIF
  125. IF v0_C#=11
  126.   RESTORE vA_15
  127. ENDIF
  128. IF v0_C#=12
  129.   RESTORE vA_16
  130. ENDIF
  131. IF v0_C#=13
  132.   RESTORE vA_17
  133. ENDIF
  134. IF v0_C#=14
  135.   RESTORE vA_18
  136. ENDIF
  137. IF v0_C#=15
  138.   RESTORE vA_19
  139. ENDIF
  140. IF v0_C#=16
  141.   RESTORE vA_1A
  142. ENDIF
  143. IF v0_C#=17
  144.   RESTORE vA_1B
  145. ENDIF
  146. IF v0_C#=18
  147.   RESTORE vA_1C
  148. ENDIF
  149. IF v0_C#=19
  150.   RESTORE vA_1D
  151. ENDIF
  152. IF v0_C#=20
  153.   RESTORE vA_1E
  154. ENDIF
  155. IF v0_C#=21
  156.   RESTORE vA_1F
  157. ENDIF
  158. IF v0_C#=22
  159.   RESTORE vA_20
  160. ENDIF
  161. IF v0_C#=23
  162.   RESTORE vA_21
  163. ENDIF
  164. IF v0_C#=24
  165.   RESTORE vA_22
  166. ENDIF
  167. IF v0_C#=25
  168.   RESTORE vA_23
  169. ENDIF
  170. IF v0_C#=26
  171.   RESTORE vA_24
  172. ENDIF
  173. IF v0_C#=27
  174.   RESTORE vA_25
  175. ENDIF
  176. IF v0_C#=28
  177.   RESTORE vA_26
  178. ENDIF
  179. IF v0_C#=29
  180.   RESTORE vA_27
  181. ENDIF
  182. IF v0_C#=30
  183.   RESTORE vA_28
  184. ENDIF
  185. IF v0_C#=31
  186.   RESTORE vA_29
  187. ENDIF
  188. IF v0_C#=32
  189.   RESTORE vA_2A
  190. ENDIF
  191. IF v0_C#=33
  192.   RESTORE vA_2B
  193. ENDIF
  194. IF v0_C#=34
  195.   RESTORE vA_2C
  196. ENDIF
  197. IF v0_C#=35
  198.   RESTORE vA_2D
  199. ENDIF
  200. IF v0_C#=36
  201.   RESTORE vA_2E
  202. ENDIF
  203. IF v0_C#=37
  204.   RESTORE vA_2F
  205. ENDIF
  206. IF v0_C#=38
  207.   RESTORE vA_30
  208. ENDIF
  209. IF v0_C#=39
  210.   RESTORE vA_31
  211. ENDIF
  212. IF v0_C#=40
  213.   RESTORE vA_32
  214. ENDIF
  215. IF v0_C#=41
  216.   RESTORE vA_33
  217. ENDIF
  218. IF v0_C#=42
  219.   RESTORE vA_34
  220. ENDIF
  221. IF v0_C#=43
  222.   RESTORE vA_35
  223. ENDIF
  224. IF v0_C#=44
  225.   RESTORE vA_36
  226. ENDIF
  227. IF v0_C#=45
  228.   RESTORE vA_37
  229. ENDIF
  230. READ v1_0$
  231. FOR v0_5#=1 TO 8
  232.   READ v0_0#
  233.   v4_2#(v0_5#)=v0_0#
  234. NEXT v0_5#
  235. READ v0_15#
  236. READ v0_16#
  237. v1_15$=v1_0$
  238. PRINT AT(15,10);v1_0$;" (";v0_C#;") "
  239. FOR v0_5#=1 TO 8 STEP 2
  240.   v0_C#=v4_2#(v0_5#)
  241.   IF v0_C#=1
  242.     RESTORE vA_B
  243.   ENDIF
  244.   IF v0_C#=2
  245.     RESTORE vA_C
  246.   ENDIF
  247.   IF v0_C#=3
  248.     RESTORE vA_D
  249.   ENDIF
  250.   IF v0_C#=4
  251.     RESTORE vA_E
  252.   ENDIF
  253.   IF v0_C#=5
  254.     RESTORE vA_F
  255.   ENDIF
  256.   IF v0_C#=6
  257.     RESTORE vA_10
  258.   ENDIF
  259.   IF v0_C#=7
  260.     RESTORE vA_11
  261.   ENDIF
  262.   IF v0_C#=8
  263.     RESTORE vA_12
  264.   ENDIF
  265.   IF v0_C#=9
  266.     RESTORE vA_13
  267.   ENDIF
  268.   IF v0_C#=10
  269.     RESTORE vA_14
  270.   ENDIF
  271.   IF v0_C#=11
  272.     RESTORE vA_15
  273.   ENDIF
  274.   IF v0_C#=12
  275.     RESTORE vA_16
  276.   ENDIF
  277.   IF v0_C#=13
  278.     RESTORE vA_17
  279.   ENDIF
  280.   IF v0_C#=14
  281.     RESTORE vA_18
  282.   ENDIF
  283.   IF v0_C#=15
  284.     RESTORE vA_19
  285.   ENDIF
  286.   IF v0_C#=16
  287.     RESTORE vA_1A
  288.   ENDIF
  289.   IF v0_C#=17
  290.     RESTORE vA_1B
  291.   ENDIF
  292.   IF v0_C#=18
  293.     RESTORE vA_1C
  294.   ENDIF
  295.   IF v0_C#=19
  296.     RESTORE vA_1D
  297.   ENDIF
  298.   IF v0_C#=20
  299.     RESTORE vA_1E
  300.   ENDIF
  301.   IF v0_C#=21
  302.     RESTORE vA_1F
  303.   ENDIF
  304.   IF v0_C#=22
  305.     RESTORE vA_20
  306.   ENDIF
  307.   IF v0_C#=23
  308.     RESTORE vA_21
  309.   ENDIF
  310.   IF v0_C#=24
  311.     RESTORE vA_22
  312.   ENDIF
  313.   IF v0_C#=25
  314.     RESTORE vA_23
  315.   ENDIF
  316.   IF v0_C#=26
  317.     RESTORE vA_24
  318.   ENDIF
  319.   IF v0_C#=27
  320.     RESTORE vA_25
  321.   ENDIF
  322.   IF v0_C#=28
  323.     RESTORE vA_26
  324.   ENDIF
  325.   IF v0_C#=29
  326.     RESTORE vA_27
  327.   ENDIF
  328.   IF v0_C#=30
  329.     RESTORE vA_28
  330.   ENDIF
  331.   IF v0_C#=31
  332.     RESTORE vA_29
  333.   ENDIF
  334.   IF v0_C#=32
  335.     RESTORE vA_2A
  336.   ENDIF
  337.   IF v0_C#=33
  338.     RESTORE vA_2B
  339.   ENDIF
  340.   IF v0_C#=34
  341.     RESTORE vA_2C
  342.   ENDIF
  343.   IF v0_C#=35
  344.     RESTORE vA_2D
  345.   ENDIF
  346.   IF v0_C#=36
  347.     RESTORE vA_2E
  348.   ENDIF
  349.   IF v0_C#=37
  350.     RESTORE vA_2F
  351.   ENDIF
  352.   IF v0_C#=38
  353.     RESTORE vA_30
  354.   ENDIF
  355.   IF v0_C#=39
  356.     RESTORE vA_31
  357.   ENDIF
  358.   IF v0_C#=40
  359.     RESTORE vA_32
  360.   ENDIF
  361.   IF v0_C#=41
  362.     RESTORE vA_33
  363.   ENDIF
  364.   IF v0_C#=42
  365.     RESTORE vA_34
  366.   ENDIF
  367.   IF v0_C#=43
  368.     RESTORE vA_35
  369.   ENDIF
  370.   IF v0_C#=44
  371.     RESTORE vA_36
  372.   ENDIF
  373.   IF v0_C#=45
  374.     RESTORE vA_37
  375.   ENDIF
  376.   READ v1_0$
  377.   v0_D#=v0_D#+1
  378.   v5_6$(v0_D#)=v1_0$
  379.   TEXT 100,180+v0_5#*15," "+v1_0$+" ("+STR$(v0_C#)+") "
  380. NEXT v0_5#
  381. v0_D#=0
  382. v5_4$(1)="[B]"
  383. v5_4$(2)="[Z]"
  384. v5_4$(3)="[F]"
  385. FOR v0_5#=1 TO 3
  386.   PRINT AT(-7+v0_5#*9,7);"    ";v4_3#(v0_6#+1,v0_5#);" "
  387.   PRINT AT(-7+v0_5#*9,22);"  ";v4_3#(1,v0_5#)," "
  388. NEXT v0_5#
  389. '
  390. ' ------------------------------- Auswahl ----------------------------
  391. '
  392. ' INPUT t
  393. vA_3B:
  394. vA_38:
  395. ' PRINT "1/2/3/4 N/Q ";
  396. REPEAT
  397.   MOUSE v0_18#,v0_19#,v0_17#
  398.   v1_2$=INKEY$
  399. UNTIL LEN(v1_2$) OR v0_17#=1
  400. ' t=VAL(a$)
  401. IF v0_18#>16 AND v0_18#<40
  402.   GET 1,170,50,290,v1_1E$
  403.   IF v0_19#>178 AND v0_19#<200
  404.     DEFFILL 1,2,8
  405.     PBOX 17,179,38,199
  406.     PAUSE 10
  407.     v0_7#=1
  408.   ENDIF
  409.   IF v0_19#>207 AND v0_19#<227
  410.     DEFFILL 1,2,8
  411.     PBOX 17,207,38,227
  412.     PAUSE 10
  413.     v0_7#=2
  414.   ENDIF
  415.   IF v0_19#>236 AND v0_19#<256
  416.     DEFFILL 1,2,8
  417.     PBOX 17,236,38,256
  418.     PAUSE 10
  419.     v0_7#=3
  420.   ENDIF
  421.   IF v0_19#>270 AND v0_19#<290
  422.     DEFFILL 1,2,8
  423.     PBOX 17,270,38,290
  424.     PAUSE 10
  425.     v0_7#=4
  426.   ENDIF
  427.   IF v0_7#=4 OR v0_7#=1 OR v0_7#=2 OR v0_7#=3
  428.     @vB_D("Gehe von "+v1_15$+""," nach "+v5_6$(v0_7#),v5_2$(6))
  429.     IF v0_1D#=FALSE
  430.       PUT 1,170,v1_1E$
  431.       GOTO vA_3B
  432.     ENDIF
  433.     GOSUB vB_5
  434.     IF v0_10#=1
  435.       v0_10#=0
  436.       GOTO vA_38
  437.     ENDIF
  438.     PUT 1,170,v1_1E$
  439.     GOTO vA_9
  440.   ENDIF
  441.   v1_1E$=""
  442. ENDIF
  443. IF v1_2$="N" OR v1_2$="n"
  444.   GOTO vA_9
  445. ENDIF
  446. IF v1_2$="Q" OR v1_2$="q"
  447.   ALERT 1,"******STOP******|1.- NEU BEGINNEN|2.- QUIT|3.- WEITER",3,"-1-|-2-|-3-",v0_E#
  448.   IF v0_E#=1
  449.     RUN
  450.   ENDIF
  451.   IF v0_E#=2
  452.     vB_1C
  453.   ENDIF
  454. ENDIF
  455. GOTO vA_38
  456. vA_9:
  457. v0_6#=v0_6#+1
  458. v4_1#(v0_6#)=v4_1#(v0_6#)+1
  459. IF v0_6#<=v0_3#
  460.   GOTO vA_6
  461. ENDIF
  462. FOR v0_5#=2 TO v0_3#+1
  463.   IF v4_0#(v0_5#)=v4_0#(1)
  464.     GOSUB vB_4
  465.   ENDIF
  466. NEXT v0_5#
  467. v0_4#=v0_4#+1
  468. IF v0_4#>v0_3#+1
  469.   v0_4#=2
  470. ENDIF
  471. v0_8#=1
  472. FOR v0_5#=2 TO v0_3#+1
  473.   v0_C#=v4_0#(v0_5#)
  474.   IF v0_C#=1
  475.     RESTORE vA_B
  476.   ENDIF
  477.   IF v0_C#=2
  478.     RESTORE vA_C
  479.   ENDIF
  480.   IF v0_C#=3
  481.     RESTORE vA_D
  482.   ENDIF
  483.   IF v0_C#=4
  484.     RESTORE vA_E
  485.   ENDIF
  486.   IF v0_C#=5
  487.     RESTORE vA_F
  488.   ENDIF
  489.   IF v0_C#=6
  490.     RESTORE vA_10
  491.   ENDIF
  492.   IF v0_C#=7
  493.     RESTORE vA_11
  494.   ENDIF
  495.   IF v0_C#=8
  496.     RESTORE vA_12
  497.   ENDIF
  498.   IF v0_C#=9
  499.     RESTORE vA_13
  500.   ENDIF
  501.   IF v0_C#=10
  502.     RESTORE vA_14
  503.   ENDIF
  504.   IF v0_C#=11
  505.     RESTORE vA_15
  506.   ENDIF
  507.   IF v0_C#=12
  508.     RESTORE vA_16
  509.   ENDIF
  510.   IF v0_C#=13
  511.     RESTORE vA_17
  512.   ENDIF
  513.   IF v0_C#=14
  514.     RESTORE vA_18
  515.   ENDIF
  516.   IF v0_C#=15
  517.     RESTORE vA_19
  518.   ENDIF
  519.   IF v0_C#=16
  520.     RESTORE vA_1A
  521.   ENDIF
  522.   IF v0_C#=17
  523.     RESTORE vA_1B
  524.   ENDIF
  525.   IF v0_C#=18
  526.     RESTORE vA_1C
  527.   ENDIF
  528.   IF v0_C#=19
  529.     RESTORE vA_1D
  530.   ENDIF
  531.   IF v0_C#=20
  532.     RESTORE vA_1E
  533.   ENDIF
  534.   IF v0_C#=21
  535.     RESTORE vA_1F
  536.   ENDIF
  537.   IF v0_C#=22
  538.     RESTORE vA_20
  539.   ENDIF
  540.   IF v0_C#=23
  541.     RESTORE vA_21
  542.   ENDIF
  543.   IF v0_C#=24
  544.     RESTORE vA_22
  545.   ENDIF
  546.   IF v0_C#=25
  547.     RESTORE vA_23
  548.   ENDIF
  549.   IF v0_C#=26
  550.     RESTORE vA_24
  551.   ENDIF
  552.   IF v0_C#=27
  553.     RESTORE vA_25
  554.   ENDIF
  555.   IF v0_C#=28
  556.     RESTORE vA_26
  557.   ENDIF
  558.   IF v0_C#=29
  559.     RESTORE vA_27
  560.   ENDIF
  561.   IF v0_C#=30
  562.     RESTORE vA_28
  563.   ENDIF
  564.   IF v0_C#=31
  565.     RESTORE vA_29
  566.   ENDIF
  567.   IF v0_C#=32
  568.     RESTORE vA_2A
  569.   ENDIF
  570.   IF v0_C#=33
  571.     RESTORE vA_2B
  572.   ENDIF
  573.   IF v0_C#=34
  574.     RESTORE vA_2C
  575.   ENDIF
  576.   IF v0_C#=35
  577.     RESTORE vA_2D
  578.   ENDIF
  579.   IF v0_C#=36
  580.     RESTORE vA_2E
  581.   ENDIF
  582.   IF v0_C#=37
  583.     RESTORE vA_2F
  584.   ENDIF
  585.   IF v0_C#=38
  586.     RESTORE vA_30
  587.   ENDIF
  588.   IF v0_C#=39
  589.     RESTORE vA_31
  590.   ENDIF
  591.   IF v0_C#=40
  592.     RESTORE vA_32
  593.   ENDIF
  594.   IF v0_C#=41
  595.     RESTORE vA_33
  596.   ENDIF
  597.   IF v0_C#=42
  598.     RESTORE vA_34
  599.   ENDIF
  600.   IF v0_C#=43
  601.     RESTORE vA_35
  602.   ENDIF
  603.   IF v0_C#=44
  604.     RESTORE vA_36
  605.   ENDIF
  606.   IF v0_C#=45
  607.     RESTORE vA_37
  608.   ENDIF
  609.   ' !!!!!!!!!!!!!!!! restore 20000+(10*sa(I))
  610.   READ v1_0$
  611.   FOR v0_9#=1 TO 4
  612.     READ v0_A#,v0_1#
  613.     v4_4#(v0_8#)=v0_A#
  614.     v0_8#=v0_8#+1
  615.   NEXT v0_9#
  616. NEXT v0_5#
  617. v0_C#=v4_0#(1)
  618. IF v0_C#=1
  619.   RESTORE vA_B
  620. ENDIF
  621. IF v0_C#=2
  622.   RESTORE vA_C
  623. ENDIF
  624. IF v0_C#=3
  625.   RESTORE vA_D
  626. ENDIF
  627. IF v0_C#=4
  628.   RESTORE vA_E
  629. ENDIF
  630. IF v0_C#=5
  631.   RESTORE vA_F
  632. ENDIF
  633. IF v0_C#=6
  634.   RESTORE vA_10
  635. ENDIF
  636. IF v0_C#=7
  637.   RESTORE vA_11
  638. ENDIF
  639. IF v0_C#=8
  640.   RESTORE vA_12
  641. ENDIF
  642. IF v0_C#=9
  643.   RESTORE vA_13
  644. ENDIF
  645. IF v0_C#=10
  646.   RESTORE vA_14
  647. ENDIF
  648. IF v0_C#=11
  649.   RESTORE vA_15
  650. ENDIF
  651. IF v0_C#=12
  652.   RESTORE vA_16
  653. ENDIF
  654. IF v0_C#=13
  655.   RESTORE vA_17
  656. ENDIF
  657. IF v0_C#=14
  658.   RESTORE vA_18
  659. ENDIF
  660. IF v0_C#=15
  661.   RESTORE vA_19
  662. ENDIF
  663. IF v0_C#=16
  664.   RESTORE vA_1A
  665. ENDIF
  666. IF v0_C#=17
  667.   RESTORE vA_1B
  668. ENDIF
  669. IF v0_C#=18
  670.   RESTORE vA_1C
  671. ENDIF
  672. IF v0_C#=19
  673.   RESTORE vA_1D
  674. ENDIF
  675. IF v0_C#=20
  676.   RESTORE vA_1E
  677. ENDIF
  678. IF v0_C#=21
  679.   RESTORE vA_1F
  680. ENDIF
  681. IF v0_C#=22
  682.   RESTORE vA_20
  683. ENDIF
  684. IF v0_C#=23
  685.   RESTORE vA_21
  686. ENDIF
  687. IF v0_C#=24
  688.   RESTORE vA_22
  689. ENDIF
  690. IF v0_C#=25
  691.   RESTORE vA_23
  692. ENDIF
  693. IF v0_C#=26
  694.   RESTORE vA_24
  695. ENDIF
  696. IF v0_C#=27
  697.   RESTORE vA_25
  698. ENDIF
  699. IF v0_C#=28
  700.   RESTORE vA_26
  701. ENDIF
  702. IF v0_C#=29
  703.   RESTORE vA_27
  704. ENDIF
  705. IF v0_C#=30
  706.   RESTORE vA_28
  707. ENDIF
  708. IF v0_C#=31
  709.   RESTORE vA_29
  710. ENDIF
  711. IF v0_C#=32
  712.   RESTORE vA_2A
  713. ENDIF
  714. IF v0_C#=33
  715.   RESTORE vA_2B
  716. ENDIF
  717. IF v0_C#=34
  718.   RESTORE vA_2C
  719. ENDIF
  720. IF v0_C#=35
  721.   RESTORE vA_2D
  722. ENDIF
  723. IF v0_C#=36
  724.   RESTORE vA_2E
  725. ENDIF
  726. IF v0_C#=37
  727.   RESTORE vA_2F
  728. ENDIF
  729. IF v0_C#=38
  730.   RESTORE vA_30
  731. ENDIF
  732. IF v0_C#=39
  733.   RESTORE vA_31
  734. ENDIF
  735. IF v0_C#=40
  736.   RESTORE vA_32
  737. ENDIF
  738. IF v0_C#=41
  739.   RESTORE vA_33
  740. ENDIF
  741. IF v0_C#=42
  742.   RESTORE vA_34
  743. ENDIF
  744. IF v0_C#=43
  745.   RESTORE vA_35
  746. ENDIF
  747. IF v0_C#=44
  748.   RESTORE vA_36
  749. ENDIF
  750. IF v0_C#=45
  751.   RESTORE vA_37
  752. ENDIF
  753. ' !!!!!!!!!!!!!!!!! restore 20000+(10*sa(1))
  754. READ v1_0$
  755. FOR v0_5#=1 TO 4
  756.   READ v0_0#,v0_1#
  757.   IF v4_3#(1,v0_1#)=0
  758.     GOTO vA_7
  759.   ENDIF
  760.   FOR v0_9#=1 TO v0_3#
  761.     EXIT IF v0_0#=v4_0#(v0_9#+1)
  762.   NEXT v0_9#
  763.   IF v0_0#=v4_0#(v0_9#+1)
  764.     GOTO vA_7
  765.   ENDIF
  766.   FOR v0_B#=1 TO v0_3#*4
  767.     EXIT IF v0_0#=v4_4#(v0_B#) AND INT(100*RND(0))<95
  768.   NEXT v0_B#
  769.   IF v0_0#=v4_4#(v0_B#) AND INT(100*RND(0))<95
  770.     GOTO vA_7
  771.   ENDIF
  772.   v0_D#=1
  773.   EXIT IF v0_D#=1
  774. vA_7:
  775. NEXT v0_5#
  776. IF v0_D#=1
  777.   v0_D#=0
  778.   GOTO vA_8
  779. ENDIF
  780. v0_1#=0
  781. GOTO vA_4
  782. vA_8:
  783. v4_3#(1,v0_1#)=v4_3#(1,v0_1#)-1
  784. v4_3#(v0_4#,v0_1#)=v4_3#(v0_4#,v0_1#)+1
  785. ' ab Zeile 620
  786. '
  787. v4_0#(1)=v0_0#
  788. vA_4:
  789. PRINT AT(5,21);"Person benutzt";
  790. ' PRINT AT(5,17)
  791. IF v0_1#=0 THEN
  792.   PRINT "nichts.    ";
  793. ENDIF
  794. IF v0_1#=1 THEN
  795.   PRINT "[B]us.     ";
  796. ENDIF
  797. IF v0_1#=2 THEN
  798.   PRINT "[Z]ug.     ";
  799. ENDIF
  800. IF v0_1#=3 THEN
  801.   PRINT "[F]lugzeug.";
  802. ENDIF
  803. ' ''PRINT AT(1,19);"Press Space"
  804. vA_1:
  805. ' INPUT e
  806. ' e=PEEK(764)
  807. ' ''REPEAT
  808. ' ''UNTIL INKEY$=" "
  809. '  IF e=33
  810. GOTO vA_0
  811. ' ENDIF
  812. ' GOTO 690
  813. vA_0:
  814. v4_1#(1)=v4_1#(1)+1
  815. IF v4_1#(1)/(3+v0_3#)=INT(v4_1#(1)/(3+v0_3#)) THEN
  816.   GOTO vA_2
  817. ENDIF
  818. GOTO vA_3
  819. vA_2:
  820. v0_C#=v4_0#(1)
  821. IF v0_C#=1
  822.   RESTORE vA_B
  823. ENDIF
  824. IF v0_C#=2
  825.   RESTORE vA_C
  826. ENDIF
  827. IF v0_C#=3
  828.   RESTORE vA_D
  829. ENDIF
  830. IF v0_C#=4
  831.   RESTORE vA_E
  832. ENDIF
  833. IF v0_C#=5
  834.   RESTORE vA_F
  835. ENDIF
  836. IF v0_C#=6
  837.   RESTORE vA_10
  838. ENDIF
  839. IF v0_C#=7
  840.   RESTORE vA_11
  841. ENDIF
  842. IF v0_C#=8
  843.   RESTORE vA_12
  844. ENDIF
  845. IF v0_C#=9
  846.   RESTORE vA_13
  847. ENDIF
  848. IF v0_C#=10
  849.   RESTORE vA_14
  850. ENDIF
  851. IF v0_C#=11
  852.   RESTORE vA_15
  853. ENDIF
  854. IF v0_C#=12
  855.   RESTORE vA_16
  856. ENDIF
  857. IF v0_C#=13
  858.   RESTORE vA_17
  859. ENDIF
  860. IF v0_C#=14
  861.   RESTORE vA_18
  862. ENDIF
  863. IF v0_C#=15
  864.   RESTORE vA_19
  865. ENDIF
  866. IF v0_C#=16
  867.   RESTORE vA_1A
  868. ENDIF
  869. IF v0_C#=17
  870.   RESTORE vA_1B
  871. ENDIF
  872. IF v0_C#=18
  873.   RESTORE vA_1C
  874. ENDIF
  875. IF v0_C#=19
  876.   RESTORE vA_1D
  877. ENDIF
  878. IF v0_C#=20
  879.   RESTORE vA_1E
  880. ENDIF
  881. IF v0_C#=21
  882.   RESTORE vA_1F
  883. ENDIF
  884. IF v0_C#=22
  885.   RESTORE vA_20
  886. ENDIF
  887. IF v0_C#=23
  888.   RESTORE vA_21
  889. ENDIF
  890. IF v0_C#=24
  891.   RESTORE vA_22
  892. ENDIF
  893. IF v0_C#=25
  894.   RESTORE vA_23
  895. ENDIF
  896. IF v0_C#=26
  897.   RESTORE vA_24
  898. ENDIF
  899. IF v0_C#=27
  900.   RESTORE vA_25
  901. ENDIF
  902. IF v0_C#=28
  903.   RESTORE vA_26
  904. ENDIF
  905. IF v0_C#=29
  906.   RESTORE vA_27
  907. ENDIF
  908. IF v0_C#=30
  909.   RESTORE vA_28
  910. ENDIF
  911. IF v0_C#=31
  912.   RESTORE vA_29
  913. ENDIF
  914. IF v0_C#=32
  915.   RESTORE vA_2A
  916. ENDIF
  917. IF v0_C#=33
  918.   RESTORE vA_2B
  919. ENDIF
  920. IF v0_C#=34
  921.   RESTORE vA_2C
  922. ENDIF
  923. IF v0_C#=35
  924.   RESTORE vA_2D
  925. ENDIF
  926. IF v0_C#=36
  927.   RESTORE vA_2E
  928. ENDIF
  929. IF v0_C#=37
  930.   RESTORE vA_2F
  931. ENDIF
  932. IF v0_C#=38
  933.   RESTORE vA_30
  934. ENDIF
  935. IF v0_C#=39
  936.   RESTORE vA_31
  937. ENDIF
  938. IF v0_C#=40
  939.   RESTORE vA_32
  940. ENDIF
  941. IF v0_C#=41
  942.   RESTORE vA_33
  943. ENDIF
  944. IF v0_C#=42
  945.   RESTORE vA_34
  946. ENDIF
  947. IF v0_C#=43
  948.   RESTORE vA_35
  949. ENDIF
  950. IF v0_C#=44
  951.   RESTORE vA_36
  952. ENDIF
  953. IF v0_C#=45
  954.   RESTORE vA_37
  955. ENDIF
  956. READ v1_0$
  957. FOR v2_3%=1 TO 8
  958.   READ v0_D#
  959. NEXT v2_3%
  960. READ v0_13#
  961. READ v0_14#
  962. SPRITE v1_E$,v0_13#-5,v0_14#-7
  963. PRINT AT(17,20);v1_0$;" (";v0_C#;") "
  964. PAUSE 50
  965. GOTO vA_3
  966. '
  967. '
  968. ' Staedte
  969. vA_B:
  970. DATA Kiel         ,2,1,3,1,5,2,6,2,495,13
  971. vA_C:
  972. DATA Luebeck      ,1,1,3,2,4,1,14,3,511,34
  973. vA_D:
  974. DATA Cuxhaven     ,1,1,2,2,6,2,6,1,461,31
  975. vA_E:
  976. DATA Hamburg      ,45,3,2,1,10,2,22,3,489,53
  977. vA_F:
  978. DATA Wilhelmshaven,1,2,6,1,8,1,7,2,396,36
  979. vA_10:
  980. DATA Bremerhaven  ,1,2,3,1,3,2,5,1,427,40
  981. vA_11:
  982. DATA Oldenburg    ,5,2,8,1,12,1,13,2,407,64
  983. vA_12:
  984. DATA Bremen       ,5,1,7,1,12,2,9,1,427,80
  985. vA_13:
  986. DATA Hannover     ,8,1,24,2,11,2,10,1,459,103
  987. vA_14:
  988. DATA Braunschweig ,4,2,9,1,11,1,1,4,1,489,97
  989. vA_15:
  990. DATA Hildesheim   ,10,1,14,1,15,1,9,2,478,124
  991. vA_16:
  992. DATA Osnabrueck   ,7,1,8,2,13,1,15,3,409,97
  993. vA_17:
  994. DATA Muenster     ,7,2,12,1,24,1,23,2,385,116
  995. vA_18:
  996. DATA Salzgitter   ,2,3,10,1,11,1,15,2,504,137
  997. vA_19:
  998. DATA Goettingen   ,14,2,11,1,12,3,19,1,489,153
  999. vA_1A:
  1000. DATA Dortmund     ,22,1,17,2,18,2,20,1,396,159
  1001. vA_1B:
  1002. DATA Essen        ,16,2,27,1,18,1,23,1,369,168
  1003. vA_1C:
  1004. DATA Duisburg     ,23,1,17,1,16,2,28,1,343,185
  1005. vA_1D:
  1006. DATA Kassel       ,15,1,21,2,29,3,37,2,457,171
  1007. vA_1E:
  1008. DATA Bochum       ,16,1,21,2,25,1,27,2,397,194
  1009. vA_1F:
  1010. DATA Herne        ,24,1,19,2,25,1,20,2,419,192
  1011. vA_20:
  1012. DATA Gelsenkirchen,4,3,24,2,16,1,23,1,374,141
  1013. vA_21:
  1014. DATA Bottrop      ,13,2,22,1,17,1,18,1,328,159
  1015. vA_22:
  1016. DATA Hagen        ,13,1,9,2,21,1,22,2,421,142
  1017. vA_23:
  1018. DATA Witten       ,20,1,21,1,26,1,28,2,415,216
  1019. vA_24:
  1020. DATA Frankfurt    ,25,1,31,2,36,1,37,1,453,238
  1021. vA_25:
  1022. DATA Duesseldorf  ,17,1,20,2,30,1,28,1,371,210
  1023. vA_26:
  1024. DATA Koeln        ,18,1,27,1,25,2,29,1,374,236
  1025. vA_27:
  1026. DATA Aachen       ,28,1,19,3,30,1,33,2,394,256
  1027. vA_28:
  1028. DATA Bonn         ,27,1,29,1,33,2,31,1,381,268
  1029. vA_29:
  1030. DATA Koblenz      ,30,1,26,2,32,1,33,1,410,284
  1031. vA_2A:
  1032. DATA Mainz        ,31,1,36,1,40,3,35,2,433,300
  1033. vA_2B:
  1034. DATA Trier        ,29,2,30,2,31,1,35,1,382,306
  1035. vA_2C:
  1036. DATA Mannheim     ,36,2,36,1,37,2,39,1,463,306
  1037. vA_2D:
  1038. DATA Saarbruecken ,33,1,32,2,40,1,41,2,410,331
  1039. vA_2E:
  1040. DATA Darmstadt    ,26,1,34,1,34,2,32,1,458,284
  1041. vA_2F:
  1042. DATA Wuerzburg    ,26,1,19,2,42,3,34,2,486,270
  1043. vA_30:
  1044. DATA Nuernberg    ,42,2,45,3,44,1,39,2,551,307
  1045. vA_31:
  1046. DATA Heidelberg   ,34,1,38,2,41,1,40,1,473,333
  1047. vA_32:
  1048. DATA Karlsruhe    ,35,1,32,3,39,1,41,1,446,338
  1049. vA_33:
  1050. DATA Stuttgart    ,35,2,40,1,39,1,44,1,475,361
  1051. vA_34:
  1052. DATA Regensburg   ,37,3,38,2,43,1,45,1,620,298
  1053. vA_35:
  1054. DATA Augsburg     ,44,2,44,1,42,1,45,2,556,343
  1055. vA_36:
  1056. DATA Freiburg     ,41,1,38,1,43,2,43,1,527,369
  1057. vA_37:
  1058. DATA Muenchen     ,42,1,4,3,38,3,43,2,601,335
  1059. '
  1060. '
  1061. PROCEDURE vB_2
  1062.   ' setcolor 2,0,0
  1063.   '  POKE 752,1
  1064.   PRINT AT(30,5);"        Tatort"
  1065.   PRINT
  1066.   DEFTEXT 1,0,5,5
  1067.   TEXT 250,98,"(c)by Sascha + Joachim"
  1068.   ALERT 1," Wie viele Spieler ??",1,"*2*|*3*|*4*",v0_E#
  1069.   v0_3#=v0_E#+1
  1070.   FOR v2_1%=1 TO v0_3#
  1071.     @vB_B("Bitte Namen","für Spieler "+STR$(v2_1%)+"","eingeben ","","",v5_2$(5))
  1072.     v5_3$(v2_1%)=v1_A$
  1073.   NEXT v2_1%
  1074.   SOUND 0,0
  1075.   WAVE 0,0
  1076.   '  PRINT AT(2,4);"Wieviele Spieler"
  1077.   ' PRINT AT(7,6);"(2 - 4 )?"
  1078.   ' CLS
  1079. RETURN
  1080. ' Festlegung der Stadt
  1081. PROCEDURE vB_3
  1082.   v4_0#(1)=(INT(32*RND(0)+1))+5
  1083. RETURN
  1084. ' Uebernahme einer Stadt
  1085. PROCEDURE vB_5
  1086.   IF v4_3#(v0_6#+1,v4_2#(v0_7#*2))=0 THEN
  1087.     PRINT CHR$(7);
  1088.     ' '''''''''''''''''''    GOSUB 450
  1089.     v0_10#=1
  1090.     PUT 1,170,v1_1E$
  1091.     GOTO vA_39
  1092.   ENDIF
  1093.   v4_0#(v0_6#+1)=v4_2#(v0_7#*2-1)
  1094.   v4_3#(1,v4_2#(v0_7#*2))=v4_3#(1,v4_2#(v0_7#*2))+1
  1095.   v4_3#(v0_6#+1,v4_2#(v0_7#*2))=v4_3#(v0_6#+1,v4_2#(v0_7#*2))-1
  1096. vA_39:
  1097. RETURN
  1098. ' ende
  1099. PROCEDURE vB_4
  1100.   SETCOLOR 2,0
  1101.   v0_1E#=(3000-v4_1#(1)*60)+(3000-v4_1#(1)*60)/v0_3#
  1102.   ALERT 1,"Super geil|"+STR$(v0_1E#)+"|"+v5_3$(v0_6#-1)+"",0,"SUPER|SPITZE",v0_E#
  1103.   v1_1F$=v5_3$(v0_6#-1)
  1104.   v0_1F#=v0_1E#
  1105.   v1_C$=SPACE$(1)
  1106.   v5_2$(1)=SPACE$(1)
  1107.   v5_2$(2)=SPACE$(3)
  1108.   v5_2$(3)=SPACE$(1)
  1109.   v5_2$(4)=SPACE$(5)
  1110.   v5_2$(5)=SPACE$(1)
  1111.   v5_2$(6)=SPACE$(3)
  1112.   v5_2$(7)=SPACE$(1)
  1113.   v5_2$(8)=SPACE$(1)
  1114.   @vB_13
  1115.   ' ''''''''''''''''''''''''''''''''~run
  1116.   END
  1117. RETURN
  1118. PROCEDURE vB_13
  1119.   v1_C$=SPACE$(1)
  1120.   @vB_12
  1121.   @vB_14
  1122. RETURN
  1123. PROCEDURE vB_15
  1124.   ' ERASE s5%()
  1125.   v2_4%=VARPTR(v6_5%(0))
  1126.   v1_17$=SPACE$(32000)
  1127.   OPEN "i",#1,"data6.dat"
  1128.   BGET #1,v2_4%,22118
  1129.   ' BGET #1,t%,2
  1130.   BGET #1,VARPTR(v1_17$),32000
  1131.   CLOSE #1
  1132.   VOID XBIOS(32,L:v2_4%)
  1133.   FOR v2_5%=1 TO 404 STEP 4
  1134.     PUT 0,-400+v2_5%,v1_17$
  1135.   NEXT v2_5%
  1136.   v0_7#=15
  1137.   v0_6#=1
  1138.   v5_3$(1)=v1_1F$
  1139.   ' ''''''''''''''''''''' Achtung Spieler nicht definiert
  1140.   DEFTEXT 1,6,8,8
  1141.   TEXT 40,30,"RANG  PUNKTE  NAME"
  1142.   OPEN "I",#1,"highscore.dat"
  1143.   DEFTEXT 1,1,6,7
  1144.   FOR v2_6%=1 TO 10
  1145.     INPUT #1,v4_7#(v2_6%),v5_7$(v2_6%)
  1146.     v4_8#(v2_6%)=v4_7#(v2_6%) !,High1$(K%)
  1147.     v5_8$(v2_6%)=v5_7$(v2_6%)
  1148.     TEXT 40,60+v2_6%*15,STR$(v2_6%)+".    "+STR$(v4_7#(v2_6%))+"   "+v5_7$(v2_6%)
  1149.   NEXT v2_6%
  1150.   CLOSE #1
  1151.   IF v0_23#=12
  1152.   ELSE
  1153.     @vB_16
  1154.   ENDIF
  1155.   REPEAT
  1156.   UNTIL LEN(INKEY$)
  1157.   RUN
  1158. RETURN
  1159. PROCEDURE vB_16
  1160.   FOR v2_6%=1 TO 10
  1161.     IF v0_1F#=>v4_7#(v2_6%) AND v0_1F#<v4_7#(v2_6%-1) OR v0_1F#>v4_7#(1)
  1162.       v0_7#=v2_6%
  1163.       @vB_17
  1164.       v5_7$(v2_6%)=v5_3$(1)
  1165.       v4_7#(v2_6%)=v0_1F#
  1166.     ENDIF
  1167.   NEXT v2_6%
  1168.   FOR v2_6%=1 TO 10
  1169.     TEXT 40,60+v2_6%*15,STR$(v2_6%)+".    "+STR$(v4_7#(v2_6%))+"   "+v5_7$(v2_6%)
  1170.   NEXT v2_6%
  1171.   OPEN "O",#1,"highscore.dat"
  1172.   FOR v2_6%=1 TO 10
  1173.     WRITE #1,v4_7#(v2_6%),v5_7$(v2_6%)
  1174.   NEXT v2_6%
  1175.   CLOSE #1
  1176. RETURN
  1177. PROCEDURE vB_17
  1178.   FOR v2_7%=v0_7# TO 10
  1179.     v5_7$(v2_7%+1)=v5_8$(v2_7%)
  1180.     v4_7#(v2_7%+1)=v4_8#(v2_7%)
  1181.   NEXT v2_7%
  1182. RETURN
  1183. PROCEDURE vB_12
  1184.   v0_1#=2
  1185.   '
  1186.   ' Mouse-Daten in einen String umwandeln
  1187.   LET v1_18$=MKI$(7)+MKI$(7)+MKI$(1)
  1188.   LET v1_18$=v1_18$+MKI$(0)+MKI$(1)
  1189.   RESTORE vA_3C
  1190.   FOR v2_2%=1 TO 16
  1191.     READ v0_12#
  1192.     LET v1_18$=v1_18$+MKI$(v0_12#)
  1193.   NEXT v2_2%
  1194.   FOR v2_2%=1 TO 16
  1195.     READ v0_11#
  1196.     LET v1_18$=v1_18$+MKI$(v0_11#)
  1197.   NEXT v2_2%
  1198. vA_3C:
  1199.   DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1200.   DATA 0,8176,8584,24972,16770,16770,16770,32766,32766,16770,16770,16770,29062,6532,4088,0
  1201.   OPEN "i",#1,"data3.dat"
  1202.   v1_19$=SPACE$(278)
  1203.   v1_1A$=SPACE$(32006)
  1204.   BGET #1,VARPTR(v1_19$),LEN(v1_19$)
  1205.   BGET #1,VARPTR(v1_1A$),LEN(v1_1A$)
  1206.   CLOSE #1
  1207.   FOR v2_6%=1 TO 414 STEP 8
  1208.     '  SPUT haus$
  1209.     PUT 1,-400+v2_6%,v1_1A$
  1210.   NEXT v2_6%
  1211.   ' END
  1212.   SGET v1_1B$
  1213.   FOR v2_8%=1 TO 6
  1214.     READ v4_B#(v2_8%)
  1215.     READ v4_C#(v2_8%)
  1216.     GET v4_B#(v2_8%),v4_C#(v2_8%),v4_B#(v2_8%)+50,v4_C#(v2_8%)+50,v5_A$(v2_8%)
  1217.     '  PUT mx(d%),my(d%),gesicht$
  1218.   NEXT v2_8%
  1219.   DATA 170,196,230,210,200,300,300,100,387,211,550,317
  1220.   ' SGET pi$
  1221.   v0_20#=TIMER
  1222.   DEFMOUSE v1_18$
  1223.   REPEAT
  1224.     MOUSE v0_18#,v0_19#,v0_17#
  1225.     IF v0_20#+500-v0_21#<TIMER
  1226.       v0_22#=INT(RND*6)+1
  1227.       v4_A#(v0_22#)=TIMER
  1228.       PUT v4_B#(v0_22#),v4_C#(v0_22#),v1_19$
  1229.       v4_9#(v0_22#)=1
  1230.       v0_22#=0
  1231.       v0_20#=TIMER
  1232.       v0_21#=v0_21#+20
  1233.     ENDIF
  1234.     FOR v2_9%=1 TO 6
  1235.       IF v4_9#(v2_9%)=1
  1236.         v0_22#=v2_9%
  1237.       ELSE
  1238.         v0_22#=0
  1239.       ENDIF
  1240.       IF v4_A#(v2_9%)+300<TIMER AND v4_A#(v2_9%)>0
  1241.         FOR v2_A%=1 TO 500
  1242.           SOUND 1,15,1,1
  1243.           SETCOLOR 0,0
  1244.           SOUND 0,0
  1245.           SETCOLOR 0,1
  1246.         NEXT v2_A%
  1247.         DEFFILL 1,2,8
  1248.         PBOX 0,0,639,399
  1249.         ALERT 1,"Ein Schuß durchfährt|ihren Rücken|Sie sind tot ",1,"DAS ENDE",v0_E#
  1250.         v0_23#=12
  1251.         v0_1#=1
  1252.       ENDIF
  1253.       IF v0_22#>0 AND v0_22#<7
  1254.         IF v0_18#>v4_B#(v0_22#) AND v0_18#<v4_B#(v0_22#)+50 AND v0_19#>v4_C#(v0_22#) AND v0_19#<v4_C#(v0_22#)+50 AND v0_17#=1
  1255.           v0_24#=v0_24#+1
  1256.           DEFTEXT 1,0,7,7
  1257.           v0_25#=20-v0_24#
  1258.           TEXT 350,10,"NOCH ZU TÖTENDE KIDNAPPER "+STR$(v0_25#)+" "
  1259.           PUT v4_B#(v0_22#),v4_C#(v0_22#),v5_A$(v0_22#)
  1260.           v4_A#(v0_22#)=0
  1261.           v4_9#(v0_22#)=0
  1262.         ENDIF
  1263.       ENDIF
  1264.     NEXT v2_9%
  1265.     IF v0_17#=1
  1266.       FOR v2_6%=1 TO 15
  1267.         PAUSE 5
  1268.         SOUND 1,15-v2_6%,15-v2_6%,1
  1269.       NEXT v2_6%
  1270.       PAUSE 10
  1271.       SOUND 0,0
  1272.       v0_17#=0
  1273.     ENDIF
  1274.     EXIT IF v0_1#=1
  1275.   UNTIL v0_17#=3 OR v0_24#=20
  1276. RETURN
  1277. PROCEDURE vB_14
  1278.   IF v0_23#=12
  1279.     '    @sound("michelle.sng")
  1280.     v1_1C$=SPACE$(16806)
  1281.     v1_1D$=SPACE$(16006)
  1282.     '    ERASE s1%()
  1283.     v2_4%=VARPTR(v6_2%(0))
  1284.     OPEN "I",#1,"data4.dat"
  1285.     BGET #1,v2_4%,2292
  1286.     BGET #1,VARPTR(v1_1C$),16806
  1287.     BGET #1,VARPTR(v1_1D$),16006
  1288.     CLOSE #1
  1289.     VOID XBIOS(32,L:v2_4%)
  1290.     FOR v2_6%=1 TO 320
  1291.       PUT -320+v2_6%,0,v1_1C$
  1292.       PUT 639-v2_6%,0,v1_1D$
  1293.     NEXT v2_6%
  1294.     REPEAT
  1295.     UNTIL LEN(INKEY$)
  1296.     SOUND 0,0
  1297.     v1_1C$=SPACE$(1)
  1298.     v1_1D$=SPACE$(1)
  1299.   ELSE
  1300.     ' @sound("badin.sng")
  1301.     ' ERASE s3%()
  1302.     v2_4%=VARPTR(v6_4%(0))
  1303.     v1_1C$=SPACE$(32006)
  1304.     OPEN "I",#1,"data5.dat"
  1305.     BGET #1,v2_4%,7862
  1306.     BGET #1,VARPTR(v1_1C$),LEN(v1_1C$)
  1307.     CLOSE #1
  1308.     ' BLOAD "sieg_b.doo",XBIOS(2)
  1309.     VOID XBIOS(32,L:v2_4%)
  1310.     ' endbild1$=SPACE$(16806)
  1311.     ' endbild2$=SPACE$(16006)
  1312.     ' GET 0,0,639,399,endbild1$
  1313.     ' varptr$=SPACE$(1)
  1314.     ' OPEN "O",#1,"sieg.dat"
  1315.     ' BPUT #1,VARPTR(endbild1$),LEN(endbild1$)
  1316.     ' BPUT #1,sng%,7862
  1317.     ' CLOSE #1
  1318.     ' END
  1319.     FOR v2_6%=1 TO 640 STEP 20
  1320.       PUT 639-v2_6%,0,v1_1C$
  1321.     NEXT v2_6%
  1322.     REPEAT
  1323.     UNTIL LEN(INKEY$)
  1324.     SOUND 0,0
  1325.     v1_1C$=SPACE$(1)
  1326.   ENDIF
  1327.   @vB_15
  1328. RETURN
  1329. ' PROCEDURE sound(f$)
  1330. ' OPEN "I",#1,f$
  1331. ' PRINT LOF(#1)
  1332. ' ERASE s%()
  1333. ' DIM s%(LOF(#1)/4)
  1334. ' sng%=VARPTR(s%(0))
  1335. ' BGET #1,sng%,LOF(#1)
  1336. ' CLOSE #1
  1337. ' REPEAT
  1338. ' UNTIL MOUSEK
  1339. ' RETURN
  1340. PROCEDURE vB_B(v1_3$,v1_4$,v1_5$,v1_6$,v1_7$,v1_B$)
  1341.   DEFLINE 1,1
  1342.   SGET v1_8$
  1343.   DEFFILL 0,0
  1344.   '  PBOX 300,180,360,300
  1345.   PBOX 220,140,420,280
  1346.   BOX 220,140,420,280
  1347.   BOX 223,143,417,277
  1348.   PUT 230,150,v1_B$
  1349.   PRINT AT(36,10);v1_3$
  1350.   PRINT AT(36,11);v1_4$
  1351.